(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    115464,       2477]
NotebookOptionsPosition[    114155,       2437]
NotebookOutlinePosition[    114833,       2461]
CellTagsIndexPosition[    114790,       2458]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{":", 
    RowBox[{"Title", ":", " ", "DocumentationMaker"}]}], " ", "*)"}], " ", 
  "\n", 
  RowBox[{"(*", " ", 
   RowBox[{":", 
    RowBox[{"Author", ":", " ", "jmlopez"}]}], " ", "*)"}], "\n", 
  RowBox[{"(*", " ", 
   RowBox[{":", 
    RowBox[{"Email", ":", " ", 
     RowBox[{"jmlopez", ".", 
      RowBox[{"rod", "@", "gmail"}], ".", "com"}]}]}], " ", "*)"}], "\n", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{":", 
     RowBox[{"Summary", ":", " ", 
      RowBox[{
      "Provides", " ", "functions", " ", "to", " ", "create", " ", 
       "guides"}]}]}], ",", " ", 
    RowBox[{"tutorials", " ", "and", " ", "reference", " ", 
     RowBox[{"pages", "."}]}]}], " ", "*)"}], "\n", 
  RowBox[{"(*", " ", 
   RowBox[{":", 
    RowBox[{"Context", ":", " ", "ApplicationMaker`DocumentationMaker`"}]}], 
   " ", "*)"}], "\n", 
  RowBox[{"(*", " ", 
   RowBox[{":", 
    RowBox[{"Package", " ", 
     RowBox[{"version", ":", " ", "1.0"}]}]}], " ", "*)"}], "\n", 
  RowBox[{"(*", " ", 
   RowBox[{":", 
    RowBox[{"History", ":", "  ", 
     RowBox[{"Version", " ", "1.0", " ", "July", " ", "10", " ", "2011"}]}]}],
    " ", "*)"}], "\n", 
  RowBox[{"(*", " ", 
   RowBox[{":", 
    RowBox[{"Mathematica", " ", 
     RowBox[{"version", ":", " ", 
      RowBox[{
      "8.0", " ", "for", " ", "Mac", " ", "OS", " ", "X", " ", "x86", " ", 
       RowBox[{"(", 
        RowBox[{"64", "-", "bit"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"February", " ", "23"}], ",", " ", "2011"}], ")"}]}]}]}]}], 
   " ", "*)"}]}]], "Code",
 CellChangeTimes->{{3.5192652513111753`*^9, 3.519265306415169*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "BeginPackage", "[", "\"\<ApplicationMaker`DocumentationMaker`\>\"", "]"}], 
  ";"}]], "Code"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Unprotect", "[", 
   RowBox[{
   "ViewOption", ",", "EditOption", ",", " ", "ViewNotebookOption", ",", " ", 
    "EditNotebookOption", ",", " ", "NewGuide", ",", " ", "NewTutorial", ",", 
    " ", "CreateReferencePages"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearAll", "[", 
   RowBox[{
   "ViewOption", ",", "EditOption", ",", " ", "ViewNotebookOption", ",", " ", 
    "EditNotebookOption", ",", " ", "NewGuide", ",", " ", "NewTutorial", ",", 
    " ", "CreateReferencePages"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.519265318232678*^9, 3.5192653687137957`*^9}, {
  3.5192693658939753`*^9, 3.5192693813936033`*^9}, {3.519323270442143*^9, 
  3.519323289013886*^9}, {3.519323975362862*^9, 3.519324019677889*^9}, {
  3.519337079895453*^9, 3.519337080178297*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{":", 
   RowBox[{"Usage", " ", 
    RowBox[{"Messages", ":"}]}]}], " ", "*)"}]], "Code"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ViewOption", "::", "usage"}], " ", "=", "\[IndentingNewLine]", 
   "\"\<ViewOption[\!\(\*
StyleBox[\"obj\", \"TI\"]\), \!\(\*
StyleBox[\"name\", \"TI\"]\)] inserts an input cell in the evaluation \
notebook displaying the settings for the option \!\(\*
StyleBox[\"name\", \"TI\"]\)\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EditOption", "::", "usage"}], " ", "=", "\[IndentingNewLine]", 
   "\"\<EditOption[\!\(\*
StyleBox[\"obj\", \"TI\"]\), \!\(\*
StyleBox[\"name\", \"TI\"]\), \!\(\*
StyleBox[\"objStr\", \"TI\"]\)] inserts an input cell in the evaluation \
notebook with the expression required to change the settings of the option \!\
\(\*
StyleBox[\"name\", \"TI\"]\).\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ViewNotebookOption", "::", "usage"}], " ", "=", 
   "\[IndentingNewLine]", "\"\<ViewNotebookOption[\!\(\*
StyleBox[\"name\", \"TI\"]\)] inserts an input cell in the evaluation \
notebook displaying the settings for the option \!\(\*
StyleBox[\"name\", \"TI\"]\).\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EditNotebookOption", "::", "usage"}], " ", "=", 
   "\[IndentingNewLine]", "\"\<EditNotebookOption[\!\(\*
StyleBox[\"name\", \"TI\"]\)] inserts an input cell in the evaluation \
notebook with the expression required to change the settings of the option \!\
\(\*
StyleBox[\"name\", \"TI\"]\).\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"NewGuide", "::", "usage"}], " ", "=", "\[IndentingNewLine]", 
   "\"\<NewGuide[\!\(\*
StyleBox[\"guideName\", \"TI\"]\), \!\(\*
StyleBox[\"appName\", \"TI\"]\)] creates the guide notebook \!\(\*
StyleBox[\"guideName\", \"TI\"]\)\!\(\*
StyleBox[\".\", \"TI\"]\)\!\(\*
StyleBox[\"nb\", \"TI\"]\) inside the documentation for the application \
\!\(\*
StyleBox[\"appName\", \"TI\"]\).\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"NewTutorial", "::", "usage"}], " ", "=", "\[IndentingNewLine]", 
   "\"\<NewTutorial[\!\(\*
StyleBox[\"tutName\", \"TI\"]\), \!\(\*
StyleBox[\"appName\", \"TI\"]\)] creates the tutorial notebook \!\(\*
StyleBox[\"tutName\", \"TI\"]\)\!\(\*
StyleBox[\".\", \"TI\"]\)\!\(\*
StyleBox[\"nb\", \"TI\"]\) inside the documentation for the application \
\!\(\*
StyleBox[\"appName\", \"TI\"]\).\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CreateReferencePages", "::", "usage"}], " ", "=", " ", 
   "\[IndentingNewLine]", "\"\<CreateReferencePages[\!\(\*
StyleBox[\"appName\", \"TI\"]\)] creates references pages for each symbol in \
the application \!\(\*
StyleBox[\"appName\", \"TI\"]\).\>\""}], ";"}]}], "Input",
 CellChangeTimes->{{3.519323706699893*^9, 3.519323714518292*^9}, {
   3.519323778544392*^9, 3.5193238061101637`*^9}, {3.519324044131998*^9, 
   3.5193241292869587`*^9}, {3.5193241661984158`*^9, 3.519324233007578*^9}, {
   3.5193242716064243`*^9, 3.519324343064982*^9}, {3.5193248201335897`*^9, 
   3.519324822517507*^9}, {3.519324984306458*^9, 3.519324986240849*^9}, 
   3.519325066608671*^9, {3.519327009527964*^9, 3.519327020123192*^9}, {
   3.519327126421506*^9, 3.5193272901027718`*^9}, {3.519331223129984*^9, 
   3.5193312528757353`*^9}, {3.519334868553597*^9, 3.519334931279875*^9}, 
   3.519337031109624*^9, {3.519337080495742*^9, 3.5193370807767477`*^9}, {
   3.519413736380611*^9, 3.519413737567539*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{":", 
   RowBox[{"Error", " ", 
    RowBox[{"Messages", ":"}]}]}], " ", "*)"}]], "Code"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ViewOption", "::", "argerr"}], " ", "=", "\[IndentingNewLine]", 
   "\"\<An object and a String representing the option name were \
excepted.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EditOption", "::", "argerr"}], " ", "=", "\[IndentingNewLine]", 
   "\"\<An object, a String representing the option name and the string \
version of the object were excepted.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ViewNotebookOption", "::", "argerr"}], " ", "=", 
   "\[IndentingNewLine]", 
   "\"\<A String representing the option name was excepted.\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EditNotebookOption", "::", "argerr"}], " ", "=", 
   "\[IndentingNewLine]", 
   "\"\<A String representing the option name was excepted.\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"NewGuide", "::", "argerr"}], "=", "\[IndentingNewLine]", 
   "\"\<Strings specifying the guide name and the application it belongs to \
were expected.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"NewGuide", "::", "nodir"}], " ", "=", "\[IndentingNewLine]", 
   "\"\<There is no application `1` in `2`. To create a new application use \
NewApplication\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"NewGuide", "::", "guideerr"}], " ", "=", " ", 
   "\[IndentingNewLine]", 
   "\"\<The guide you are trying to create in the application `1` already \
exists. Click `2` to edit its contents.\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"NewTutorial", "::", "argerr"}], "=", "\[IndentingNewLine]", 
   "\"\<Strings specifying the guide name and the application it belongs to \
were expected.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"NewTutorial", "::", "nodir"}], " ", "=", "\[IndentingNewLine]", 
   "\"\<There is no application `1` in `2`. To create a new application use \
NewApplication\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"NewTutorial", "::", "tuterr"}], " ", "=", " ", 
   "\[IndentingNewLine]", 
   "\"\<The guide you are trying to create in the application `1` already \
exists. Click `2` to edit its contents.\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CreateReferencePages", "::", "argerr"}], "=", 
   "\[IndentingNewLine]", 
   "\"\<A string specifying the application name was expected.\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CreateReferencePages", "::", "nodir"}], " ", "=", 
   "\[IndentingNewLine]", 
   "\"\<There is no application `1` in `2`. To create a new application use \
NewApplication\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CreateReferencePages", "::", "symb"}], " ", "=", " ", 
   "\[IndentingNewLine]", 
   "\"\<A reference page for `1` already exists. Click `2` to make changes.\>\
\""}], ";"}]}], "Input",
 CellChangeTimes->{{3.519303626255715*^9, 3.5193036311960087`*^9}, {
  3.5193037341085052`*^9, 3.5193037567634907`*^9}, {3.51932351322832*^9, 
  3.5193235310805397`*^9}, {3.519323811867343*^9, 3.519323816283979*^9}, {
  3.519324367393413*^9, 3.519324411807083*^9}, {3.5193256873847513`*^9, 
  3.5193257231085663`*^9}, {3.519327308410808*^9, 3.5193273377820463`*^9}, {
  3.5193312671558723`*^9, 3.5193312962975473`*^9}, {3.519334999415621*^9, 
  3.519335067451096*^9}, {3.519337081090786*^9, 3.519337081655307*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Begin", "[", "\"\<`Private`\>\"", "]"}], ";"}]], "Code"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", 
   RowBox[{"RuleToString", ",", " ", "QuoteList"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"QuoteList", "[", "str_", "]"}], " ", ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"nl", ",", " ", 
      RowBox[{"newstr", "=", "\"\<\>\""}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"MatchQ", "[", 
        RowBox[{"str", ",", " ", "_String"}], "]"}], ",", 
       RowBox[{"Return", "@", 
        RowBox[{"StringJoin", "[", 
         RowBox[{"\"\<\\\"\>\"", ",", " ", "str", ",", " ", "\"\<\\\"\>\""}], 
         "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"MatchQ", "[", 
         RowBox[{"str", ",", " ", "_List"}], "]"}]}], ",", " ", 
       RowBox[{"Return", "@", 
        RowBox[{"ToString", "[", "str", "]"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"nl", " ", "=", " ", "\"\<\[IndentingNewLine]\>\""}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"newstr", " ", "=", " ", 
      RowBox[{"StringJoin", "[", 
       RowBox[{"newstr", ",", " ", "\"\<{\>\"", ",", " ", "nl"}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"MatchQ", "[", 
           RowBox[{
            RowBox[{"str", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", " ", "_Rule"}], "]"}], ",", 
          " ", "\[IndentingNewLine]", 
          RowBox[{"newstr", " ", "=", " ", 
           RowBox[{"StringJoin", "[", 
            RowBox[{"newstr", ",", " ", 
             RowBox[{"RuleToString", "[", 
              RowBox[{"str", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", "\"\<,\>\"", ",", 
             " ", "nl"}], " ", "]"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"newstr", " ", "=", " ", 
           RowBox[{"StringJoin", "[", 
            RowBox[{"newstr", ",", " ", 
             RowBox[{"QuoteList", "@", 
              RowBox[{"str", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], ",", " ", "\"\<,\>\"", ",", 
             "nl"}], " ", "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}], 
       "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", 
         RowBox[{
          RowBox[{"Length", "@", "str"}], "-", "1"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"MatchQ", "[", 
        RowBox[{
         RowBox[{"str", "[", 
          RowBox[{"[", 
           RowBox[{"Length", "@", "str"}], "]"}], "]"}], ",", " ", "_Rule"}], 
        "]"}], ",", " ", "\[IndentingNewLine]", 
       RowBox[{"newstr", " ", "=", " ", 
        RowBox[{"StringJoin", "[", 
         RowBox[{"newstr", ",", " ", 
          RowBox[{"RuleToString", "[", 
           RowBox[{"str", "[", 
            RowBox[{"[", 
             RowBox[{"Length", "@", "str"}], "]"}], "]"}], "]"}], ",", " ", 
          "nl"}], " ", "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"newstr", " ", "=", " ", 
        RowBox[{"StringJoin", "[", 
         RowBox[{"newstr", ",", " ", 
          RowBox[{"QuoteList", "@", 
           RowBox[{"str", "[", 
            RowBox[{"[", 
             RowBox[{"Length", "@", "str"}], "]"}], "]"}]}], ",", " ", "nl"}],
          " ", "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"newstr", " ", "=", " ", 
      RowBox[{"StringJoin", "[", 
       RowBox[{"newstr", ",", " ", "\"\<}\>\""}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Return", "@", "newstr"}], ";"}]}], "\[IndentingNewLine]", 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RuleToString", "[", "rule_Rule", "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"str", " ", "=", " ", "\"\<\>\""}], ",", " ", "opname", ",", 
      " ", "val", ",", " ", "nl"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"nl", " ", "=", " ", "\"\<\[IndentingNewLine]\>\""}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"opname", "=", 
      RowBox[{"rule", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"val", " ", "=", " ", 
      RowBox[{"rule", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"MatchQ", "[", 
         RowBox[{"val", ",", " ", "_List"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"str", " ", "=", " ", 
         RowBox[{"StringJoin", "[", 
          RowBox[{"str", ",", " ", 
           RowBox[{"QuoteList", "@", "opname"}], ",", "\"\< \[Rule] \>\"", 
           ",", 
           RowBox[{"QuoteList", "@", "val"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "[", "str", "]"}], ";"}]}], "\[IndentingNewLine]", 
      "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"str", " ", "=", " ", 
      RowBox[{"StringJoin", "[", 
       RowBox[{"str", ",", " ", 
        RowBox[{"QuoteList", "@", "opname"}], ",", " ", "\"\< \[Rule] {\>\"", 
        ",", " ", "nl"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"MatchQ", "[", 
           RowBox[{
            RowBox[{"val", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", " ", "_Rule"}], "]"}], ",", 
          " ", "\[IndentingNewLine]", 
          RowBox[{"str", " ", "=", " ", 
           RowBox[{"StringJoin", "[", 
            RowBox[{"str", ",", " ", 
             RowBox[{"RuleToString", "[", 
              RowBox[{"val", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", "\"\<,\>\"", ",", 
             " ", "nl"}], " ", "]"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"str", " ", "=", " ", 
            RowBox[{"StringJoin", "[", 
             RowBox[{"str", ",", " ", 
              RowBox[{"QuoteList", "[", 
               RowBox[{"val", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", "\"\<,\>\"", ",", 
              "  ", "nl"}], " ", "]"}]}], ";"}]}], "\[IndentingNewLine]", 
         "]"}], ";"}], "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", 
         RowBox[{
          RowBox[{"Length", "@", "val"}], "-", "1"}]}], "}"}]}], 
      "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"MatchQ", "[", 
        RowBox[{
         RowBox[{"val", "[", 
          RowBox[{"[", 
           RowBox[{"Length", "@", "val"}], "]"}], "]"}], ",", " ", "_Rule"}], 
        "]"}], ",", " ", "\[IndentingNewLine]", 
       RowBox[{"str", " ", "=", " ", 
        RowBox[{"StringJoin", "[", 
         RowBox[{"str", ",", " ", 
          RowBox[{"RuleToString", "[", 
           RowBox[{"val", "[", 
            RowBox[{"[", 
             RowBox[{"Length", "@", "val"}], "]"}], "]"}], "]"}], ",", " ", 
          "nl"}], " ", "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"str", " ", "=", " ", 
         RowBox[{"StringJoin", "[", 
          RowBox[{"str", ",", " ", 
           RowBox[{"QuoteList", "@", 
            RowBox[{"val", "[", 
             RowBox[{"[", 
              RowBox[{"Length", "@", "val"}], "]"}], "]"}]}], ",", " ", 
           "nl"}], " ", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"str", " ", "=", " ", 
      RowBox[{"StringJoin", "[", 
       RowBox[{"str", ",", " ", "\"\<}\>\""}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "str", "]"}], ";"}]}], "\[IndentingNewLine]", 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.51959077992142*^9, 3.519590874398512*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ViewOption", "[", "args___", "]"}], " ", ":=", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Message", "[", 
     RowBox[{"ViewOption", "::", "argerr"}], "]"}], ";", "$Failed"}], 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ViewOption", "[", "\[IndentingNewLine]", 
   RowBox[{"obj_", ",", " ", "name_String"}], "\[IndentingNewLine]", "]"}], 
  " ", ":=", " ", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"opt", ",", 
      RowBox[{"str", "=", "\"\<\>\""}], ",", " ", "nl"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"opt", " ", "=", " ", 
      RowBox[{"Options", "[", 
       RowBox[{"obj", ",", " ", "name"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"opt", " ", "\[Equal]", " ", 
        RowBox[{"{", "}"}]}], ",", " ", 
       RowBox[{"Return", "[", "$Failed", "]"}], ",", " ", 
       RowBox[{"opt", " ", "=", " ", 
        RowBox[{"First", "@", "opt"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     
     RowBox[{"nl", " ", "=", " ", "\"\<\[IndentingNewLine]\>\""}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"str", " ", "=", " ", 
      RowBox[{"StringJoin", "[", 
       RowBox[{"str", ",", " ", 
        RowBox[{"RuleToString", "[", "opt", "]"}], ",", " ", "nl"}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"NotebookWrite", "[", 
      RowBox[{
       RowBox[{"EvaluationNotebook", "[", "]"}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{"Cell", "[", 
        RowBox[{
         RowBox[{"BoxData", "[", 
          RowBox[{"RowBox", "[", 
           RowBox[{"{", 
            RowBox[{"StyleBox", "[", 
             RowBox[{"str", ",", " ", "\"\<MSG\>\""}], "]"}], "}"}], "]"}], 
          "]"}], ",", " ", "\"\<Input\>\""}], "]"}]}], "\[IndentingNewLine]", 
      "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.5193244426130447`*^9, 3.5193245538570623`*^9}, {
  3.5193259185000343`*^9, 3.51932592204247*^9}, {3.519325986897272*^9, 
  3.519325990205793*^9}, {3.5195908861112757`*^9, 3.519590891969591*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"EditOption", "[", "args___", "]"}], " ", ":=", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Message", "[", 
     RowBox[{"EditOption", "::", "argerr"}], "]"}], ";", "$Failed"}], 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EditOption", "[", "\[IndentingNewLine]", 
   RowBox[{"obj_", ",", " ", "name_String", ",", " ", "o_String"}], 
   "\[IndentingNewLine]", "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"opt", ",", "str", ",", " ", "nl"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"opt", " ", "=", " ", 
      RowBox[{"Options", "[", 
       RowBox[{"obj", ",", " ", "name"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"opt", " ", "\[Equal]", " ", 
        RowBox[{"{", "}"}]}], ",", " ", 
       RowBox[{"Return", "[", "$Failed", "]"}], ",", " ", 
       RowBox[{"opt", " ", "=", " ", 
        RowBox[{"First", "@", "opt"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     
     RowBox[{"nl", " ", "=", " ", "\"\<\[IndentingNewLine]\>\""}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"str", " ", "=", " ", 
      RowBox[{"StringJoin", "[", 
       RowBox[{
       "\"\<SetOptions[\>\"", ",", " ", "o", ",", " ", "\"\<, \>\"", ",", " ",
         "nl"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"str", " ", "=", " ", 
      RowBox[{"StringJoin", "[", 
       RowBox[{"str", ",", " ", 
        RowBox[{"RuleToString", "[", "opt", "]"}], ",", " ", "nl"}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"str", " ", "=", " ", 
      RowBox[{"StringJoin", "[", 
       RowBox[{"str", ",", " ", "\"\<]\>\""}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"NotebookWrite", "[", 
      RowBox[{
       RowBox[{"EvaluationNotebook", "[", "]"}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{"Cell", "[", 
        RowBox[{
         RowBox[{"BoxData", "[", 
          RowBox[{"RowBox", "[", 
           RowBox[{"{", "str", "}"}], "]"}], "]"}], ",", " ", 
         "\"\<Input\>\""}], "]"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.519324649484139*^9, 3.519324656601125*^9}, 
   3.51932470065587*^9, {3.5193247574045887`*^9, 3.519324809606745*^9}, 
   3.519325098656048*^9, 3.5193252927348022`*^9, {3.519325850075173*^9, 
   3.519325909812155*^9}, {3.519325993865321*^9, 3.519326020900584*^9}, {
   3.519590895297621*^9, 3.519590899476046*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ViewNotebookOption", "[", "args___", "]"}], " ", ":=", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Message", "[", 
     RowBox[{"ViewNotebookOption", "::", "argerr"}], "]"}], ";", "$Failed"}], 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ViewNotebookOption", "[", 
   RowBox[{"name_String", ",", " ", 
    RowBox[{"nbo_:", " ", 
     RowBox[{"HoldForm", "[", 
      RowBox[{"SelectedNotebook", "[", "]"}], "]"}]}]}], "]"}], " ", ":=", 
  " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "nb", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"nb", " ", "=", " ", 
      RowBox[{"ReleaseHold", "[", "nbo", "]"}]}], ";", "\[IndentingNewLine]", 
     
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"MatchQ", "[", 
         RowBox[{"nb", ",", "_NotebookObject"}], "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"ViewNotebookOption", "::", "argerr"}], "]"}], ";", " ", 
        RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"ViewOption", "[", 
      RowBox[{"nb", ",", " ", "name"}], "]"}], ";"}]}], "\[IndentingNewLine]",
    "]"}]}]}], "Input",
 CellChangeTimes->{
  3.519269415121496*^9, {3.519303556817383*^9, 3.5193035584623947`*^9}, {
   3.519303606926292*^9, 3.519303622460435*^9}, {3.519303689117612*^9, 
   3.519303709394971*^9}, {3.519303941226612*^9, 3.519303942174258*^9}, 
   3.5193235575137377`*^9, {3.5193236424698753`*^9, 3.5193236489128847`*^9}, {
   3.519323762919286*^9, 3.519323763989065*^9}, {3.519324548553713*^9, 
   3.519324632535787*^9}, {3.519329910645623*^9, 3.519329933269868*^9}, {
   3.5193300265623827`*^9, 3.519330041078352*^9}, {3.5193301159884357`*^9, 
   3.519330168868535*^9}, {3.51933023911285*^9, 3.519330304507804*^9}, {
   3.519330358706221*^9, 3.519330411854141*^9}, {3.5193304418864822`*^9, 
   3.5193304421460752`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"EditNotebookOption", "[", "args___", "]"}], " ", ":=", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Message", "[", 
     RowBox[{"EditNotebookOption", "::", "argerr"}], "]"}], ";", "$Failed"}], 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EditNotebookOption", "[", 
   RowBox[{"name_String", ",", " ", 
    RowBox[{"nbo_:", 
     RowBox[{"HoldForm", "[", 
      RowBox[{"SelectedNotebook", "[", "]"}], "]"}]}], ",", 
    RowBox[{"nbs_String:", "\"\<EvaluationNotebook[]\>\""}]}], "]"}], " ", ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "nb", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"nb", " ", "=", " ", 
      RowBox[{"ReleaseHold", "[", "nbo", "]"}]}], ";", "\[IndentingNewLine]", 
     
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"MatchQ", "[", 
         RowBox[{"nb", ",", "_NotebookObject"}], "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"EditNotebookOption", "::", "argerr"}], "]"}], ";", " ", 
        RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", " ", 
     RowBox[{"EditOption", "[", 
      RowBox[{"nb", ",", " ", "name", ",", " ", "nbs"}], "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.519323684787221*^9, 3.519323692779621*^9}, {
   3.5193251115492363`*^9, 3.5193251455129967`*^9}, {3.519325333549315*^9, 
   3.519325341601871*^9}, 3.5193300873117857`*^9, {3.5193304687146177`*^9, 
   3.519330503651559*^9}, {3.519330584624318*^9, 3.519330697866444*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"NewGuide", "[", "args___", "]"}], " ", ":=", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Message", "[", 
     RowBox[{"NewGuide", "::", "argerr"}], "]"}], ";", "$Failed"}], 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NewGuide", "[", 
   RowBox[{
   "guideName_String", ",", " ", "appName_String", ",", "\[IndentingNewLine]", 
    RowBox[{"appDir_String:", " ", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", " ", 
       RowBox[{"$UserBaseDirectory", ",", "\"\<Applications\>\""}], "}"}], 
      "]"}]}]}], "\[IndentingNewLine]", "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"appNameDir", ",", " ", "guidePath", ",", " ", "nb"}], "}"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"appNameDir", " ", "=", "  ", 
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{"appDir", ",", " ", "appName"}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"DirectoryQ", "[", "appNameDir", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{
          RowBox[{"NewGuide", "::", "nodir"}], ",", " ", "appName", ",", " ", 
          "appDir"}], "]"}], ";", " ", 
        RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"guidePath", " ", "=", " ", 
      RowBox[{"FileNameJoin", "[", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "appNameDir", ",", "\"\<Documentation\>\"", ",", " ", 
         "\"\<English\>\"", ",", "\"\<Guides\>\"", ",", 
         RowBox[{"StringJoin", "[", 
          RowBox[{"\"\<___\>\"", ",", " ", "guideName", ",", "\"\<.nb\>\""}], 
          "]"}]}], " ", "}"}], "\[IndentingNewLine]", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"FileExistsQ", "[", "guidePath", "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{
          RowBox[{"NewGuide", "::", "guideerr"}], ",", " ", "appName", ",", 
          " ", 
          RowBox[{"Hyperlink", "[", 
           RowBox[{"\"\<here\>\"", ",", " ", "guidePath"}], "]"}]}], "]"}], 
        ";", " ", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", "$Failed", "]"}]}]}], "\[IndentingNewLine]", 
      "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"nb", " ", "=", " ", 
      RowBox[{"CreateDocument", "[", "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"SetOptions", "[", 
      RowBox[{"nb", ",", " ", "\[IndentingNewLine]", 
       RowBox[{"StyleDefinitions", "\[Rule]", " ", 
        RowBox[{"FileNameJoin", "[", 
         RowBox[{"{", 
          RowBox[{
          "appDir", ",", " ", "\"\<ApplicationMaker\>\"", ",", 
           "\"\<FrontEnd\>\"", ",", " ", "\"\<Stylesheets\>\"", ",", " ", 
           RowBox[{"\"\<UserReference\>\"", "<>", 
            RowBox[{"ToString", "[", 
             RowBox[{"Floor", "[", "$VersionNumber", "]"}], "]"}], " ", "<>", 
            "\"\<.nb\>\""}]}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"DockedCells", "\[Rule]", " ", "None"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"WindowTitle", " ", "\[Rule]", " ", 
        RowBox[{"guideName", "<>", "\"\< - \>\"", "<>", "appName"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"TaggingRules", "\[Rule]", " ", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"\"\<ModificationHighlight\>\"", "\[Rule]", "False"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"\"\<Metadata\>\"", "\[Rule]", 
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"\"\<context\>\"", "\[Rule]", 
              RowBox[{"appName", "<>", "\"\<`\>\""}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<keywords\>\"", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"ToLowerCase", "[", "guideName", "]"}], ",", " ", 
                RowBox[{"ToUpperCase", "[", "guideName", "]"}]}], "}"}]}], 
             ",", "\[IndentingNewLine]", 
             RowBox[{"\"\<index\>\"", "\[Rule]", "True"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<label\>\"", "\[Rule]", 
              RowBox[{"appName", "<>", "\"\< Guide\>\""}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<language\>\"", "\[Rule]", "\"\<en\>\""}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<paclet\>\"", "\[Rule]", "appName"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<status\>\"", "\[Rule]", "\"\<\>\""}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
             "\"\<summary\>\"", "\[Rule]", " ", 
              "\"\<This summary was generated by \
ApplicationMaker`DocumentationMaker`NewGuide.\>\""}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<synonyms\>\"", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"ToLowerCase", "[", "guideName", "]"}], ",", " ", 
                RowBox[{"ToUpperCase", "[", "guideName", "]"}]}], "}"}]}], 
             ",", "\[IndentingNewLine]", 
             RowBox[{"\"\<title\>\"", "\[Rule]", "guideName"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
             "\"\<windowTitle\>\"", " ", "\[Rule]", " ", "guideName"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<type\>\"", "\[Rule]", "\"\<Guide\>\""}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<uri\>\"", "\[Rule]", 
              RowBox[{
              "appName", "<>", "\"\</guide/\>\"", "<>", "guideName"}]}]}], 
            "\[IndentingNewLine]", "}"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"\"\<SearchTextTranslated\>\"", "\[Rule]", "\"\<\>\""}]}], 
         "\[IndentingNewLine]", "}"}]}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"NotebookWrite", "[", 
      RowBox[{"nb", ",", " ", "\[IndentingNewLine]", 
       RowBox[{"Cell", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"BoxData", "[", "\[IndentingNewLine]", 
          RowBox[{"GridBox", "[", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Cell", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"ToUpperCase", "[", "appName", "]"}], "<>", 
                 "\"\< GUIDE\>\""}], ",", "\"\<PacletNameCell\>\""}], "]"}], 
              ",", "\[IndentingNewLine]", 
              RowBox[{"Cell", "[", 
               RowBox[{
                RowBox[{"TextData", "[", 
                 RowBox[{"{", "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"Cell", "[", 
                    RowBox[{
                    RowBox[{"BoxData", "[", 
                    RowBox[{"ActionMenuBox", "[", 
                    RowBox[{
                    RowBox[{"FrameBox", "[", 
                    RowBox[{
                    "\"\<\\<\\\"Tutorials \[RightGuillemet]\\\"\\>\>\"", ",", 
                    
                    RowBox[{"StripOnInput", "\[Rule]", "False"}]}], "]"}], 
                    ",", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    "\"\<\\<\\\"Title of tutorial 1\\\"\\>\>\"", 
                    "\[RuleDelayed]", 
                    RowBox[{"Documentation`HelpLookup", "[", 
                    RowBox[{
                    "\"\<paclet:\>\"", "<>", "appName", "<>", 
                    "\"\</tutorial/tutorialName1\>\""}], "]"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    "\"\<\\<\\\"Title of tutorial 2\\\"\\>\>\"", 
                    "\[RuleDelayed]", 
                    RowBox[{"Documentation`HelpLookup", "[", 
                    RowBox[{
                    "\"\<paclet:\>\"", "<>", "appName", "<>", 
                    "\"\</tutorial/tutorialName2\>\""}], "]"}]}]}], 
                    "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
                    
                    RowBox[{"Appearance", "\[Rule]", "None"}], ",", 
                    RowBox[{"MenuAppearance", "\[Rule]", "Automatic"}]}], 
                    "]"}], "\[IndentingNewLine]", "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"LineSpacing", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"1.4", ",", "0"}], "}"}]}]}], "]"}], ",", 
                   "\"\<\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]\[ThickSpace]\>\"", ",", "\[IndentingNewLine]", 
                   RowBox[{"Cell", "[", 
                    RowBox[{
                    RowBox[{"BoxData", "[", 
                    RowBox[{"ActionMenuBox", "[", 
                    RowBox[{
                    RowBox[{"FrameBox", "[", 
                    RowBox[{
                    "\"\<\\<\\\"URL \[RightGuillemet]\\\"\\>\>\"", ",", 
                    RowBox[{"StripOnInput", "\[Rule]", "False"}]}], "]"}], 
                    ",", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    "\"\<\\<\\\"Go to \>\"", "<>", "appName", "<>", 
                    "\"\</tutorial/\>\"", "<>", "guideName", "<>", 
                    "\"\< URL\\\"\\>\>\""}], "\[RuleDelayed]", 
                    RowBox[{"FrontEndExecute", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{"NotebookLocate", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    "URL", "[", 
                    "\"\<your.website.goes.here/documentationIfAny\>\"", 
                    "]"}], ",", "None"}], "}"}], "]"}], "\[IndentingNewLine]",
                     "}"}], "]"}]}], ",", "\[IndentingNewLine]", "Delimiter", 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{
                    "\"\<\\<\\\"Go to wolfram URL\\\"\\>\>\"", 
                    "\[RuleDelayed]", 
                    RowBox[{"FrontEndExecute", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{"NotebookLocate", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    "URL", "[", 
                    "\"\<http://reference.wolfram.com/mathematica/guide/\
Mathematica.html\>\"", "]"}], ",", "None"}], "}"}], "]"}], 
                    "\[IndentingNewLine]", "}"}], "]"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    "\"\<\\<\\\"Go to authors URL\\\"\\>\>\"", 
                    "\[RuleDelayed]", 
                    RowBox[{"FrontEndExecute", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{"NotebookLocate", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    "URL", "[", "\"\<your.website.goes.here\>\"", "]"}], ",", 
                    "None"}], "}"}], "]"}], "\[IndentingNewLine]", "}"}], 
                    "]"}]}]}], "\[IndentingNewLine]", "}"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Appearance", "\[Rule]", "None"}], ",", 
                    RowBox[{"MenuAppearance", "\[Rule]", "Automatic"}]}], 
                    "]"}], "\[IndentingNewLine]", "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"LineSpacing", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"1.4", ",", "0"}], "}"}]}]}], 
                    "\[IndentingNewLine]", "]"}]}], "}"}], "]"}], ",", 
                "\"\<AnchorBar\>\""}], "]"}]}], "}"}], "}"}], "]"}], "]"}], 
         ",", "\[IndentingNewLine]", "\"\<AnchorBarGrid\>\""}], "]"}]}], 
      "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"NotebookWrite", "[", 
      RowBox[{"nb", ",", " ", 
       RowBox[{"Cell", "[", 
        RowBox[{"\"\<Guide title.\>\"", ",", " ", "\"\<GuideTitle\>\""}], 
        "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"NotebookWrite", "[", 
      RowBox[{"nb", ",", " ", 
       RowBox[{"Cell", "[", 
        RowBox[{
        "\"\<This is a template for a guide document. A lot of functions \
usually go after this guide abstract. To edit the hyperlinks you can click on \
the cell that contains the link and press cmd+E on a Mac or ctr+E on a \
windows system. Edit the link and then revert the process by pressing the \
same sequence of keys.\>\"", ",", " ", "\"\<GuideAbstract\>\""}], "]"}]}], 
      "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"NotebookWrite", "[", 
      RowBox[{"nb", ",", "\[IndentingNewLine]", 
       RowBox[{"Cell", "[", 
        RowBox[{
         RowBox[{"TextData", "[", 
          RowBox[{"ButtonBox", "[", 
           RowBox[{"\"\<Package Title \[RightGuillemet]\>\"", ",", 
            RowBox[{"BaseStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
              "\"\<Link\>\"", ",", "\"\<GuideFunctionsSubsection\>\""}], 
              "}"}]}], ",", 
            RowBox[{"ButtonData", "\[Rule]", 
             RowBox[{
             "\"\<paclet:\>\"", "<>", "appName", "<>", 
              "\"\</guide/SomeOtherGuide\>\""}]}]}], "]"}], "]"}], ",", 
         "\"\<GuideFunctionsSubsection\>\""}], "]"}]}], "\[IndentingNewLine]",
       "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"NotebookWrite", "[", 
      RowBox[{"nb", ",", "\[IndentingNewLine]", 
       RowBox[{"Cell", "[", 
        RowBox[{
         RowBox[{"TextData", "[", 
          RowBox[{"{", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Cell", "[", 
             RowBox[{
              RowBox[{"TextData", "[", 
               RowBox[{"ButtonBox", "[", 
                RowBox[{"\"\<FunctionName\>\"", ",", 
                 RowBox[{"BaseStyle", "\[Rule]", "\"\<Link\>\""}], ",", 
                 RowBox[{"ButtonData", "\[Rule]", 
                  RowBox[{
                  "\"\<paclet:\>\"", "<>", "appName", "<>", 
                   "\"\</ref/FunctionName\>\""}]}]}], "]"}], "]"}], ",", 
              "\"\<InlineFunctionSans\>\""}], "]"}], ",", "\"\< \>\"", ",", 
            RowBox[{"StyleBox", "[", 
             RowBox[{"\"\<\[LongDash]\>\"", ",", "\"\<GuideEmDash\>\""}], 
             "]"}], ",", "\"\< \>\"", ",", "\"\<Description\>\""}], 
           "\[IndentingNewLine]", "}"}], "]"}], ",", "\"\<GuideText\>\""}], 
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"NotebookWrite", "[", 
      RowBox[{"nb", ",", "\[IndentingNewLine]", 
       RowBox[{"Cell", "[", 
        RowBox[{
         RowBox[{"TextData", "[", 
          RowBox[{"{", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Cell", "[", 
             RowBox[{
              RowBox[{"TextData", "[", 
               RowBox[{"ButtonBox", "[", 
                RowBox[{"\"\<Function1\>\"", ",", 
                 RowBox[{"BaseStyle", "\[Rule]", "\"\<Link\>\""}], ",", 
                 RowBox[{"ButtonData", "\[Rule]", 
                  RowBox[{
                  "\"\<paclet:\>\"", "<>", "appName", "<>", 
                   "\"\</ref/Function1\>\""}]}]}], "]"}], "]"}], ",", 
              "\"\<InlineFunctionSans\>\""}], "]"}], ",", 
            "\[IndentingNewLine]", "\"\<\[NonBreakingSpace]\>\"", ",", 
            RowBox[{"StyleBox", "[", 
             RowBox[{
             "\"\<\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]\>\"", 
              ",", "\"\<InlineSeparator\>\""}], "]"}], ",", "\"\< \>\"", ",", 
            
            RowBox[{"Cell", "[", 
             RowBox[{
              RowBox[{"TextData", "[", 
               RowBox[{"ButtonBox", "[", 
                RowBox[{"\"\<Function2\>\"", ",", 
                 RowBox[{"BaseStyle", "\[Rule]", "\"\<Link\>\""}], ",", 
                 RowBox[{"ButtonData", "\[Rule]", 
                  RowBox[{
                  "\"\<paclet:\>\"", "<>", "appName", "<>", 
                   "\"\</ref/Function2\>\""}]}]}], "]"}], "]"}], ",", 
              "\"\<InlineFunctionSans\>\""}], "]"}], ",", 
            "\[IndentingNewLine]", "\"\<\[NonBreakingSpace]\>\"", ",", 
            RowBox[{"StyleBox", "[", 
             RowBox[{
             "\"\<\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]\>\"", 
              ",", "\"\<InlineSeparator\>\""}], "]"}], ",", "\"\< \>\"", ",", 
            
            RowBox[{"Cell", "[", 
             RowBox[{
              RowBox[{"TextData", "[", 
               RowBox[{"ButtonBox", "[", 
                RowBox[{"\"\<Function3\>\"", ",", 
                 RowBox[{"BaseStyle", "\[Rule]", "\"\<Link\>\""}], ",", 
                 RowBox[{"ButtonData", "\[Rule]", 
                  RowBox[{
                  "\"\<paclet:\>\"", "<>", "appName", "<>", 
                   "\"\</ref/Function3\>\""}]}]}], "]"}], "]"}], ",", 
              "\"\<InlineFunctionSans\>\""}], "]"}], ",", 
            "\[IndentingNewLine]", "\"\<\[NonBreakingSpace]\>\"", ",", 
            RowBox[{"StyleBox", "[", 
             RowBox[{
             "\"\<\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]\>\"", 
              ",", "\"\<InlineSeparator\>\""}], "]"}], ",", "\"\< \>\"", ",", 
            
            RowBox[{"Cell", "[", 
             RowBox[{
              RowBox[{"TextData", "[", 
               RowBox[{"ButtonBox", "[", 
                RowBox[{"\"\<...\>\"", ",", 
                 RowBox[{"BaseStyle", "\[Rule]", "\"\<Link\>\""}], ",", 
                 RowBox[{"ButtonData", "\[Rule]", 
                  RowBox[{
                  "\"\<paclet:\>\"", "<>", "appName", "<>", 
                   "\"\</guide/SomeOtherGuide\>\""}]}]}], "]"}], "]"}], ",", 
              "\"\<InlineFunctionSans\>\""}], "]"}]}], "}"}], "]"}], ",", 
         "\"\<InlineGuideFunctionListing\>\""}], "]"}]}], 
      "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"NotebookWrite", "[", 
      RowBox[{"nb", ",", " ", 
       RowBox[{"Cell", "[", 
        RowBox[{
        "\"\<TUTORIALS\>\"", ",", " ", "\"\<TutorialsSection\>\"", ",", " ", 
         RowBox[{"WholeCellGroupOpener", "\[Rule]", " ", "True"}]}], "]"}]}], 
      "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"NotebookWrite", "[", 
      RowBox[{"nb", ",", "\[IndentingNewLine]", " ", 
       RowBox[{"Cell", "[", 
        RowBox[{
         RowBox[{"TextData", "[", 
          RowBox[{"{", "\[IndentingNewLine]", 
           RowBox[{"StyleBox", "[", 
            RowBox[{"ButtonBox", "[", 
             RowBox[{"\"\<SomeTutorial\>\"", ",", 
              RowBox[{"BaseStyle", "\[Rule]", "\"\<Link\>\""}], ",", 
              RowBox[{"ButtonData", "\[Rule]", 
               RowBox[{"\"\<paclet:\>\"", "\"\</tutorial/Overview\>\""}]}]}], 
             "]"}], "]"}], "\[IndentingNewLine]", "}"}], "]"}], ",", 
         "\"\<RelatedTutorials\>\""}], "]"}]}], "\[IndentingNewLine]", "]"}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"NotebookWrite", "[", 
      RowBox[{"nb", ",", " ", 
       RowBox[{"Cell", "[", 
        RowBox[{"\"\< \>\"", ",", "\"\<FooterCell\>\""}], "]"}]}], "]"}], ";",
      "\[IndentingNewLine]", 
     RowBox[{"NotebookSave", "[", 
      RowBox[{"nb", ",", " ", "guidePath"}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "nb", "]"}], ";"}]}], "\[IndentingNewLine]", 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.519327372027793*^9, 3.5193274469480953`*^9}, 
   3.519327553185443*^9, {3.519327601388028*^9, 3.519327672067713*^9}, 
   3.519327906782892*^9, 3.519328022833235*^9, {3.51932812949*^9, 
   3.5193281346609383`*^9}, {3.5193282259504223`*^9, 3.519328279058169*^9}, {
   3.519328330479051*^9, 3.519328339115239*^9}, {3.5193284302158937`*^9, 
   3.519328481037916*^9}, 3.5193286995409613`*^9, {3.519328735512694*^9, 
   3.5193287435275507`*^9}, {3.5193287749606743`*^9, 3.519328784849074*^9}, {
   3.51932894766365*^9, 3.519328979070428*^9}, {3.519329014667054*^9, 
   3.519329034872361*^9}, {3.519329113989253*^9, 3.519329117253818*^9}, 
   3.5193293467312937`*^9, {3.5193298955809*^9, 3.519329898669545*^9}, {
   3.519330867796097*^9, 3.519330880520084*^9}, {3.51933131769874*^9, 
   3.519331320897189*^9}, {3.51933142944716*^9, 3.519331431241488*^9}, {
   3.519338154888891*^9, 3.519338160045431*^9}, {3.519505668279405*^9, 
   3.519505685276161*^9}, {3.519507435934308*^9, 3.519507440295217*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"NewTutorial", "[", "args___", "]"}], " ", ":=", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Message", "[", 
     RowBox[{"NewTutorial", "::", "argerr"}], "]"}], ";", "$Failed"}], 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NewTutorial", "[", 
   RowBox[{
   "tutName_String", ",", " ", "appName_String", ",", "\[IndentingNewLine]", 
    RowBox[{"appDir_String:", " ", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", " ", 
       RowBox[{"$UserBaseDirectory", ",", "\"\<Applications\>\""}], "}"}], 
      "]"}]}]}], "\[IndentingNewLine]", "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"appNameDir", ",", " ", "tutPath", ",", " ", "nb"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"appNameDir", " ", "=", "  ", 
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{"appDir", ",", " ", "appName"}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"DirectoryQ", "[", "appNameDir", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{
          RowBox[{"NewTutorial", "::", "nodir"}], ",", " ", "appName", ",", 
          " ", "appDir"}], "]"}], ";", " ", 
        RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"tutPath", " ", "=", " ", 
      RowBox[{"FileNameJoin", "[", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "appNameDir", ",", "\"\<Documentation\>\"", ",", " ", 
         "\"\<English\>\"", ",", "\"\<Tutorials\>\"", ",", 
         RowBox[{"StringJoin", "[", 
          RowBox[{"\"\<___\>\"", ",", " ", "tutName", ",", "\"\<.nb\>\""}], 
          "]"}]}], " ", "}"}], "\[IndentingNewLine]", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"FileExistsQ", "[", "tutPath", "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{
          RowBox[{"NewTutorial", "::", "tuterr"}], ",", " ", "appName", ",", 
          " ", 
          RowBox[{"Hyperlink", "[", 
           RowBox[{"\"\<here\>\"", ",", " ", "tutPath"}], "]"}]}], "]"}], ";",
         " ", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", "$Failed", "]"}]}]}], "\[IndentingNewLine]", 
      "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"nb", " ", "=", " ", 
      RowBox[{"CreateDocument", "[", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"SetOptions", "[", 
      RowBox[{"nb", ",", " ", "\[IndentingNewLine]", 
       RowBox[{"StyleDefinitions", "\[Rule]", " ", 
        RowBox[{"FileNameJoin", "[", 
         RowBox[{"{", 
          RowBox[{
          "appDir", ",", " ", "\"\<ApplicationMaker\>\"", ",", 
           "\"\<FrontEnd\>\"", ",", " ", "\"\<Stylesheets\>\"", ",", " ", 
           RowBox[{"\"\<UserReference\>\"", "<>", "\"\<.nb\>\""}]}], "}"}], 
         "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"DockedCells", "\[Rule]", " ", "None"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"WindowTitle", " ", "\[Rule]", " ", 
        RowBox[{"tutName", "<>", "\"\< - \>\"", "<>", "appName"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"TaggingRules", "\[Rule]", " ", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"\"\<ModificationHighlight\>\"", "\[Rule]", "False"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"\"\<Metadata\>\"", "\[Rule]", 
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"\"\<context\>\"", "\[Rule]", 
              RowBox[{"appName", "<>", "\"\<`\>\""}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<keywords\>\"", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"ToLowerCase", "[", "tutName", "]"}], ",", " ", 
                RowBox[{"ToUpperCase", "[", "tutName", "]"}]}], "}"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<index\>\"", "\[Rule]", "True"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<label\>\"", "\[Rule]", 
              RowBox[{"appName", "<>", "\"\< Guide\>\""}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<language\>\"", "\[Rule]", "\"\<en\>\""}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<paclet\>\"", "\[Rule]", "appName"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<status\>\"", "\[Rule]", "\"\<\>\""}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
             "\"\<summary\>\"", "\[Rule]", " ", 
              "\"\<This summary was generated by \
ApplicationMaker`DocumentationMaker`NewTutorial.\>\""}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<synonyms\>\"", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"ToLowerCase", "[", "tutName", "]"}], ",", " ", 
                RowBox[{"ToUpperCase", "[", "tutName", "]"}]}], "}"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<title\>\"", "\[Rule]", "tutName"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<windowTitle\>\"", " ", "\[Rule]", " ", "tutName"}], 
             ",", "\[IndentingNewLine]", 
             RowBox[{"\"\<type\>\"", "\[Rule]", "\"\<Guide\>\""}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<uri\>\"", "\[Rule]", 
              RowBox[{
              "appName", "<>", "\"\</tutorial/\>\"", "<>", "tutName"}]}]}], 
            "\[IndentingNewLine]", "}"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"\"\<SearchTextTranslated\>\"", "\[Rule]", "\"\<\>\""}]}], 
         "\[IndentingNewLine]", "}"}]}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"NotebookWrite", "[", 
      RowBox[{"nb", ",", " ", "\[IndentingNewLine]", 
       RowBox[{"Cell", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"BoxData", "[", 
          RowBox[{"GridBox", "[", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Cell", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"ToUpperCase", "[", "appName", "]"}], "<>", 
                 "\"\< TUTORIAL\>\""}], ",", "\"\<PacletNameCell\>\""}], 
               "]"}], ",", "\[IndentingNewLine]", 
              RowBox[{"Cell", "[", 
               RowBox[{
                RowBox[{"TextData", "[", 
                 RowBox[{"{", "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"Cell", "[", 
                    RowBox[{
                    RowBox[{"BoxData", "[", 
                    RowBox[{"ActionMenuBox", "[", 
                    RowBox[{
                    RowBox[{"FrameBox", "[", 
                    RowBox[{
                    "\"\<\\<\\\"Related Tutorials \
\[RightGuillemet]\\\"\\>\>\"", ",", 
                    RowBox[{"StripOnInput", "\[Rule]", "False"}]}], "]"}], 
                    ",", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    "\"\<\\<\\\"Title of tutorial 1\\\"\\>\>\"", 
                    "\[RuleDelayed]", 
                    RowBox[{"Documentation`HelpLookup", "[", 
                    RowBox[{
                    "\"\<paclet:\>\"", "<>", "appName", "<>", 
                    "\"\</tutorial/tutorialName1\>\""}], "]"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    "\"\<\\<\\\"Title of tutorial 2\\\"\\>\>\"", 
                    "\[RuleDelayed]", 
                    RowBox[{"Documentation`HelpLookup", "[", 
                    RowBox[{
                    "\"\<paclet:\>\"", "<>", "appName", "<>", 
                    "\"\</tutorial/tutorialName2\>\""}], "]"}]}]}], 
                    "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
                    
                    RowBox[{"Appearance", "\[Rule]", "None"}], ",", 
                    RowBox[{"MenuAppearance", "\[Rule]", "Automatic"}]}], 
                    "]"}], "\[IndentingNewLine]", "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"LineSpacing", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"1.4", ",", "0"}], "}"}]}]}], "]"}], ",", 
                   "\"\<\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]\[ThickSpace]\>\"", ",", "\[IndentingNewLine]", 
                   RowBox[{"Cell", "[", 
                    RowBox[{
                    RowBox[{"BoxData", "[", 
                    RowBox[{"ActionMenuBox", "[", 
                    RowBox[{
                    RowBox[{"FrameBox", "[", 
                    RowBox[{
                    "\"\<\\<\\\"URL \[RightGuillemet]\\\"\\>\>\"", ",", 
                    RowBox[{"StripOnInput", "\[Rule]", "False"}]}], "]"}], 
                    ",", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    "\"\<\\<\\\"Go to \>\"", "<>", "appName", "<>", 
                    "\"\</tutorial/\>\"", "<>", "tutName", "<>", 
                    "\"\< URL\\\"\\>\>\""}], "\[RuleDelayed]", 
                    RowBox[{"FrontEndExecute", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{"NotebookLocate", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    "URL", "[", 
                    "\"\<your.website.goes.here/documentationIfAny\>\"", 
                    "]"}], ",", "None"}], "}"}], "]"}], "\[IndentingNewLine]",
                     "}"}], "]"}]}], ",", "\[IndentingNewLine]", "Delimiter", 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{
                    "\"\<\\<\\\"Go to wolfram URL\\\"\\>\>\"", 
                    "\[RuleDelayed]", 
                    RowBox[{"FrontEndExecute", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{"NotebookLocate", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    "URL", "[", 
                    "\"\<http://reference.wolfram.com/mathematica/guide/\
Mathematica.html\>\"", "]"}], ",", "None"}], "}"}], "]"}], 
                    "\[IndentingNewLine]", "}"}], "]"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    "\"\<\\<\\\"Go to authors URL\\\"\\>\>\"", 
                    "\[RuleDelayed]", 
                    RowBox[{"FrontEndExecute", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{"NotebookLocate", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    "URL", "[", "\"\<your.website.goes.here\>\"", "]"}], ",", 
                    "None"}], "}"}], "]"}], "\[IndentingNewLine]", "}"}], 
                    "]"}]}]}], "\[IndentingNewLine]", "}"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Appearance", "\[Rule]", "None"}], ",", 
                    RowBox[{"MenuAppearance", "\[Rule]", "Automatic"}]}], 
                    "]"}], "\[IndentingNewLine]", "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"LineSpacing", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"1.4", ",", "0"}], "}"}]}]}], 
                    "\[IndentingNewLine]", "]"}]}], "}"}], "]"}], ",", 
                "\"\<AnchorBar\>\""}], "]"}]}], "}"}], "}"}], "]"}], "]"}], 
         ",", "\"\<AnchorBarGrid\>\""}], "]"}]}], "\[IndentingNewLine]", 
      "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"NotebookWrite", "[", 
      RowBox[{"nb", ",", " ", 
       RowBox[{"Cell", "[", 
        RowBox[{"\"\<Tutorial Title\>\"", ",", " ", "\"\<Title\>\""}], 
        "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"NotebookWrite", "[", 
      RowBox[{"nb", ",", " ", 
       RowBox[{"Cell", "[", 
        RowBox[{
        "\"\<This is a template for a tutorial document. To get more ideas on \
how to make a tutorial page look at other tutorial pages and copy and paste \
the cells they contain for a quick template.\>\"", ",", " ", "\"\<Text\>\""}],
         "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"NotebookWrite", "[", 
      RowBox[{"nb", ",", " ", 
       RowBox[{"Cell", "[", 
        RowBox[{"\"\<Tutorial Section\>\"", ",", " ", "\"\<Section\>\""}], 
        "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"NotebookWrite", "[", 
      RowBox[{"nb", ",", " ", 
       RowBox[{"Cell", "[", 
        RowBox[{
        "\"\<RELATED TUTORIALS\>\"", ",", " ", 
         "\"\<RelatedTutorialsSection\>\"", ",", " ", 
         RowBox[{"WholeCellGroupOpener", "\[Rule]", " ", "True"}]}], "]"}]}], 
      "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"NotebookWrite", "[", 
      RowBox[{"nb", ",", "\[IndentingNewLine]", " ", 
       RowBox[{"Cell", "[", 
        RowBox[{
         RowBox[{"TextData", "[", 
          RowBox[{"{", "\[IndentingNewLine]", 
           RowBox[{"StyleBox", "[", 
            RowBox[{"ButtonBox", "[", 
             RowBox[{"\"\<SomeTutorial\>\"", ",", 
              RowBox[{"BaseStyle", "\[Rule]", "\"\<Link\>\""}], ",", 
              RowBox[{"ButtonData", "\[Rule]", 
               RowBox[{
               "\"\<paclet:\>\"", "<>", "appName", "<>", 
                "\"\</tutorial/Overview\>\""}]}]}], "]"}], "]"}], 
           "\[IndentingNewLine]", "}"}], "]"}], ",", 
         "\"\<RelatedTutorials\>\""}], "]"}]}], "\[IndentingNewLine]", "]"}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"NotebookWrite", "[", 
      RowBox[{"nb", ",", " ", 
       RowBox[{"Cell", "[", 
        RowBox[{"\"\< \>\"", ",", "\"\<FooterCell\>\""}], "]"}]}], "]"}], ";",
      "\[IndentingNewLine]", 
     RowBox[{"NotebookSave", "[", 
      RowBox[{"nb", ",", " ", "tutPath"}], "]"}], ";", "\[IndentingNewLine]", 
     
     RowBox[{"Return", "[", "nb", "]"}], ";"}]}], "\[IndentingNewLine]", 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.519331359623575*^9, 3.519331419065593*^9}, {
  3.519331455618058*^9, 3.519331541385141*^9}, {3.519331662448295*^9, 
  3.519331663612362*^9}, {3.519331801838982*^9, 3.519331817977971*^9}, {
  3.5193381116760817`*^9, 3.519338130271162*^9}, {3.519352520341064*^9, 
  3.519352527135949*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"CreateReferencePages", "[", "args___", "]"}], " ", ":=", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Message", "[", 
     RowBox[{"CreateReferencePages", "::", "argerr"}], "]"}], ";", 
    "$Failed"}], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CreateReferencePages", "[", 
   RowBox[{"appName_String", ",", "\[IndentingNewLine]", 
    RowBox[{"appDir_String:", " ", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", " ", 
       RowBox[{"$UserBaseDirectory", ",", "\"\<Applications\>\""}], "}"}], 
      "]"}]}]}], "\[IndentingNewLine]", "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "appNameDir", ",", " ", "symDir", ",", " ", "refPath", ",", " ", "pkg", 
      ",", " ", "sym", ",", " ", "nb", ",", " ", "str"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Get", "[", 
      RowBox[{"appName", "<>", "\"\<`\>\""}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Off", "[", 
      RowBox[{"General", "::", "stop"}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"appNameDir", " ", "=", "  ", 
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{"appDir", ",", " ", "appName"}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"symDir", " ", "=", " ", 
      RowBox[{"FileNameJoin", "[", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "appNameDir", ",", "\"\<Documentation\>\"", ",", " ", 
         "\"\<English\>\"", ",", "\"\<ReferencePages\>\"", ",", " ", 
         "\"\<Symbols\>\""}], " ", "}"}], "\[IndentingNewLine]", "]"}]}], ";",
      "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"DirectoryQ", "[", "appNameDir", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{
          RowBox[{"CreateReferencePages", "::", "nodir"}], ",", " ", 
          "appName", ",", " ", "appDir"}], "]"}], ";", " ", 
        RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"pkg", " ", "=", " ", 
      RowBox[{"Map", "[", 
       RowBox[{"FileBaseName", ",", " ", 
        RowBox[{"FileNames", "[", 
         RowBox[{"appNameDir", "<>", "\"\</*.nb\>\""}], "]"}]}], "]"}]}], ";",
      "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<Building reference pages for: \>\"", ",", " ", 
            "\"\<MSG\>\""}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"pkg", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", " ", "\"\<Input\>\""}], 
           "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"sym", " ", "=", " ", 
         RowBox[{"Names", "[", 
          RowBox[{"StringJoin", "[", 
           RowBox[{"appName", ",", " ", "\"\<`\>\"", ",", " ", 
            RowBox[{"pkg", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", " ", "\"\<`*\>\""}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"refPath", " ", "=", " ", 
            RowBox[{"FileNameJoin", "[", 
             RowBox[{"{", 
              RowBox[{"symDir", ",", " ", 
               RowBox[{"StringJoin", "[", 
                RowBox[{"\"\<___\>\"", ",", 
                 RowBox[{"sym", "[", 
                  RowBox[{"[", "j", "]"}], "]"}], ",", "\"\<.nb\>\""}], 
                "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"FileExistsQ", "[", "refPath", "]"}], ",", " ", 
             RowBox[{"Message", "[", 
              RowBox[{
               RowBox[{"CreateReferencePages", "::", "symb"}], ",", " ", 
               RowBox[{"sym", "[", 
                RowBox[{"[", "j", "]"}], "]"}], ",", "  ", 
               RowBox[{"Hyperlink", "[", 
                RowBox[{"\"\<here\>\"", ",", " ", "refPath"}], "]"}]}], "]"}],
              ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"nb", " ", "=", " ", 
               RowBox[{"CreateDocument", "[", "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"SetOptions", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"StyleDefinitions", "\[Rule]", " ", 
                 RowBox[{"FileNameJoin", "[", "\[IndentingNewLine]", 
                  RowBox[{"{", 
                   RowBox[{
                   "appDir", ",", " ", "\"\<ApplicationMaker\>\"", ",", 
                    "\"\<FrontEnd\>\"", ",", " ", "\"\<Stylesheets\>\"", ",", 
                    " ", 
                    RowBox[{"\"\<UserReference\>\"", "<>", "\"\<.nb\>\""}]}], 
                   "}"}], "\[IndentingNewLine]", "]"}]}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"DockedCells", "\[Rule]", " ", "None"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"WindowTitle", " ", "\[Rule]", " ", 
                 RowBox[{
                  RowBox[{"sym", "[", 
                   RowBox[{"[", "j", "]"}], "]"}], "<>", "\"\< - \>\"", "<>", 
                  "appName", "<>", "\"\<`\>\"", "<>", 
                  RowBox[{"pkg", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "<>", "\"\<`\>\""}]}], ",",
                 "\[IndentingNewLine]", 
                RowBox[{"TaggingRules", "\[Rule]", " ", 
                 RowBox[{"{", "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{
                   "\"\<ModificationHighlight\>\"", "\[Rule]", "False"}], ",",
                    "\[IndentingNewLine]", 
                   RowBox[{"\"\<Metadata\>\"", "\[Rule]", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"\"\<context\>\"", "\[Rule]", 
                    RowBox[{"appName", "<>", "\"\<`\>\""}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"\"\<keywords\>\"", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"ToLowerCase", "[", 
                    RowBox[{"sym", "[", 
                    RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", " ", 
                    RowBox[{"ToUpperCase", "[", 
                    RowBox[{"sym", "[", 
                    RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"\"\<index\>\"", "\[Rule]", "True"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"\"\<label\>\"", "\[Rule]", 
                    RowBox[{"appName", "<>", "\"\<`\>\"", "<>", 
                    RowBox[{"pkg", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "<>", 
                    "\"\<` Symbol\>\""}]}], ",", "\[IndentingNewLine]", 
                    RowBox[{"\"\<language\>\"", "\[Rule]", "\"\<en\>\""}], 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{"\"\<paclet\>\"", "\[Rule]", 
                    RowBox[{"appName", "<>", "\"\< \>\"", "<>", 
                    RowBox[{"pkg", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"\"\<status\>\"", "\[Rule]", "\"\<\>\""}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"\"\<summary\>\"", "\[Rule]", " ", 
                    RowBox[{"ToExpression", "[", 
                    RowBox[{
                    RowBox[{"sym", "[", 
                    RowBox[{"[", "j", "]"}], "]"}], "<>", "\"\<::usage\>\""}],
                     "]"}]}], ",", "\[IndentingNewLine]", 
                    RowBox[{"\"\<synonyms\>\"", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"ToLowerCase", "[", 
                    RowBox[{"sym", "[", 
                    RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", " ", 
                    RowBox[{"ToUpperCase", "[", 
                    RowBox[{"sym", "[", 
                    RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"\"\<title\>\"", "\[Rule]", 
                    RowBox[{"sym", "[", 
                    RowBox[{"[", "j", "]"}], "]"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"\"\<windowTitle\>\"", " ", "\[Rule]", " ", 
                    RowBox[{"sym", "[", 
                    RowBox[{"[", "j", "]"}], "]"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"\"\<type\>\"", "\[Rule]", "\"\<Symbol\>\""}], 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{"\"\<uri\>\"", "\[Rule]", 
                    RowBox[{"appName", "<>", "\"\</ref/\>\"", "<>", 
                    RowBox[{"sym", "[", 
                    RowBox[{"[", "j", "]"}], "]"}]}]}]}], 
                    "\[IndentingNewLine]", "}"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{
                   "\"\<SearchTextTranslated\>\"", "\[Rule]", "\"\<\>\""}]}], 
                  "\[IndentingNewLine]", "}"}]}]}], "\[IndentingNewLine]", 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", " ", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"BoxData", "[", 
                   RowBox[{"GridBox", "[", 
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Cell", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"ToUpperCase", "[", 
                    RowBox[{"appName", "<>", "\"\<`\>\"", "<>", 
                    RowBox[{"pkg", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "<>", "\"\<`\>\""}], 
                    "]"}], "<>", "\"\< SYMBOL\>\""}], ",", 
                    "\"\<PacletNameCell\>\""}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Cell", "[", 
                    RowBox[{
                    RowBox[{"TextData", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"Cell", "[", 
                    RowBox[{
                    RowBox[{"BoxData", "[", 
                    RowBox[{"ActionMenuBox", "[", 
                    RowBox[{
                    RowBox[{"FrameBox", "[", 
                    RowBox[{
                    "\"\<\\<\\\"Tutorials \[RightGuillemet]\\\"\\>\>\"", ",", 
                    
                    RowBox[{"StripOnInput", "\[Rule]", "False"}]}], "]"}], 
                    ",", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    "\"\<\\<\\\"Title of tutorial 1\\\"\\>\>\"", 
                    "\[RuleDelayed]", 
                    RowBox[{"Documentation`HelpLookup", "[", 
                    RowBox[{
                    "\"\<paclet:\>\"", "<>", "appName", "<>", 
                    "\"\</tutorial/tutorialName1\>\""}], "]"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    "\"\<\\<\\\"Title of tutorial 2\\\"\\>\>\"", 
                    "\[RuleDelayed]", 
                    RowBox[{"Documentation`HelpLookup", "[", 
                    RowBox[{
                    "\"\<paclet:\>\"", "<>", "appName", "<>", 
                    "\"\</tutorial/tutorialName2\>\""}], "]"}]}]}], 
                    "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
                    
                    RowBox[{"Appearance", "\[Rule]", "None"}], ",", 
                    RowBox[{"MenuAppearance", "\[Rule]", "Automatic"}]}], 
                    "]"}], "\[IndentingNewLine]", "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"LineSpacing", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"1.4", ",", "0"}], "}"}]}]}], "]"}], ",", 
                    
                    "\"\<\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]\[ThickSpace]\>\"", ",", "\[IndentingNewLine]", 
                    RowBox[{"Cell", "[", 
                    RowBox[{
                    RowBox[{"BoxData", "[", 
                    RowBox[{"ActionMenuBox", "[", 
                    RowBox[{
                    RowBox[{"FrameBox", "[", 
                    RowBox[{
                    "\"\<\\<\\\"See Also \[RightGuillemet]\\\"\\>\>\"", ",", 
                    RowBox[{"StripOnInput", "\[Rule]", "False"}]}], "]"}], 
                    ",", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"\"\<\\<\\\"Symbol1\\\"\\>\>\"", "\[RuleDelayed]", 
                    RowBox[{"Documentation`HelpLookup", "[", 
                    RowBox[{
                    "\"\<paclet:\>\"", "<>", "appName", "<>", 
                    "\"\</ref/Symbol1\>\""}], "]"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"\"\<\\<\\\"Symbol2\\\"\\>\>\"", "\[RuleDelayed]", 
                    RowBox[{"Documentation`HelpLookup", "[", 
                    RowBox[{
                    "\"\<paclet:\>\"", "<>", "appName", "<>", 
                    "\"\</ref/Symbol2\>\""}], "]"}]}]}], 
                    "\[IndentingNewLine]", "}"}], ",", 
                    RowBox[{"Appearance", "\[Rule]", "None"}], ",", 
                    RowBox[{"MenuAppearance", "\[Rule]", "Automatic"}]}], 
                    "]"}], "\[IndentingNewLine]", "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"LineSpacing", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"1.4", ",", "0"}], "}"}]}]}], "]"}], ",", 
                    "\"\<\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]\[ThickSpace]\>\"", ",", "\[IndentingNewLine]", 
                    RowBox[{"Cell", "[", 
                    RowBox[{
                    RowBox[{"BoxData", "[", 
                    RowBox[{"ActionMenuBox", "[", 
                    RowBox[{
                    RowBox[{"FrameBox", "[", 
                    RowBox[{
                    "\"\<\\<\\\"More About \[RightGuillemet]\\\"\\>\>\"", ",", 
                    RowBox[{"StripOnInput", "\[Rule]", "False"}]}], "]"}], 
                    ",", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"\"\<\\<\\\"Guide 1\\\"\\>\>\"", "\[RuleDelayed]", 
                    RowBox[{"Documentation`HelpLookup", "[", 
                    RowBox[{
                    "\"\<paclet:\>\"", "<>", "appName", "<>", 
                    "\"\</guide/Guide1\>\""}], "]"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"\"\<\\<\\\"Guide 2\\\"\\>\>\"", "\[RuleDelayed]", 
                    RowBox[{"Documentation`HelpLookup", "[", 
                    RowBox[{
                    "\"\<paclet:\>\"", "<>", "appName", "<>", 
                    "\"\</guide/Guide2\>\""}], "]"}]}]}], 
                    "\[IndentingNewLine]", "}"}], ",", 
                    RowBox[{"Appearance", "\[Rule]", "None"}], ",", 
                    RowBox[{"MenuAppearance", "\[Rule]", "Automatic"}]}], 
                    "]"}], "\[IndentingNewLine]", "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"LineSpacing", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"1.4", ",", "0"}], "}"}]}]}], "]"}], ",", 
                    "\"\<\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]\[ThickSpace]\>\"", ",", "\[IndentingNewLine]", 
                    RowBox[{"Cell", "[", 
                    RowBox[{
                    RowBox[{"BoxData", "[", 
                    RowBox[{"ActionMenuBox", "[", 
                    RowBox[{
                    RowBox[{"FrameBox", "[", 
                    RowBox[{
                    "\"\<\\<\\\"URL \[RightGuillemet]\\\"\\>\>\"", ",", 
                    RowBox[{"StripOnInput", "\[Rule]", "False"}]}], "]"}], 
                    ",", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\"\<\\<\\\"Go to \>\"", "<>", "appName", "<>", 
                    "\"\</ref/\>\"", "<>", 
                    RowBox[{"sym", "[", 
                    RowBox[{"[", "j", "]"}], "]"}], "<>", 
                    "\"\< URL\\\"\\>\>\""}], "\[RuleDelayed]", 
                    RowBox[{"FrontEndExecute", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{"NotebookLocate", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    "URL", "[", 
                    "\"\<your.website.goes.here/documentationIfAny\>\"", 
                    "]"}], ",", "None"}], "}"}], "]"}], "\[IndentingNewLine]",
                     "}"}], "]"}]}], ",", "\[IndentingNewLine]", "Delimiter", 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{
                    "\"\<\\<\\\"Go to wolfram URL\\\"\\>\>\"", 
                    "\[RuleDelayed]", 
                    RowBox[{"FrontEndExecute", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{"NotebookLocate", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    "URL", "[", 
                    "\"\<http://reference.wolfram.com/mathematica/guide/\
Mathematica.html\>\"", "]"}], ",", "None"}], "}"}], "]"}], 
                    "\[IndentingNewLine]", "}"}], "]"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    "\"\<\\<\\\"Go to authors URL\\\"\\>\>\"", 
                    "\[RuleDelayed]", 
                    RowBox[{"FrontEndExecute", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{"NotebookLocate", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    "URL", "[", "\"\<your.website.goes.here\>\"", "]"}], ",", 
                    "None"}], "}"}], "]"}], "\[IndentingNewLine]", "}"}], 
                    "]"}]}]}], "\[IndentingNewLine]", "}"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Appearance", "\[Rule]", "None"}], ",", 
                    RowBox[{"MenuAppearance", "\[Rule]", "Automatic"}]}], 
                    "]"}], "\[IndentingNewLine]", "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"LineSpacing", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"1.4", ",", "0"}], "}"}]}]}], 
                    "\[IndentingNewLine]", "]"}]}], "}"}], "]"}], ",", 
                    "\"\<AnchorBar\>\""}], "]"}]}], "}"}], "}"}], "]"}], 
                   "]"}], ",", "\"\<AnchorBarGrid\>\""}], "]"}]}], 
               "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", " ", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                  RowBox[{"sym", "[", 
                   RowBox[{"[", "j", "]"}], "]"}], ",", " ", 
                  "\"\<ObjectName\>\""}], "]"}]}], "]"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", " ", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                  RowBox[{"BoxData", "[", 
                   RowBox[{"GridBox", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{"{", 
                    RowBox[{"\"\<\>\"", ",", "\[IndentingNewLine]", 
                    RowBox[{"Cell", "[", 
                    RowBox[{"TextData", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"Cell", "[", 
                    RowBox[{
                    RowBox[{"BoxData", "[", 
                    RowBox[{"RowBox", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"ButtonBox", "[", 
                    RowBox[{
                    RowBox[{"sym", "[", 
                    RowBox[{"[", "j", "]"}], "]"}], ",", 
                    RowBox[{"BaseStyle", "\[Rule]", "\"\<Link\>\""}], ",", 
                    RowBox[{"ButtonData", "\[Rule]", 
                    RowBox[{"\"\<paclet:\>\"", "<>", "appName", "<>", 
                    "\"\</ref/\>\"", "<>", 
                    RowBox[{"sym", "[", 
                    RowBox[{"[", "j", "]"}], "]"}]}]}]}], "]"}], ",", 
                    "\"\<[\>\"", ",", 
                    RowBox[{"StyleBox", "[", 
                    RowBox[{"\"\<args\>\"", ",", "\"\<TI\>\""}], "]"}], ",", 
                    "\"\<]\>\""}], "\[IndentingNewLine]", "}"}], "]"}], 
                    "\[IndentingNewLine]", "]"}], ",", 
                    "\"\<InlineFormula\>\""}], "]"}], ",", 
                    RowBox[{"\"\<\[LineSeparator]\>\"", "<>", " ", 
                    RowBox[{"ToExpression", "[", 
                    RowBox[{
                    RowBox[{"sym", "[", 
                    RowBox[{"[", "j", "]"}], "]"}], "<>", "\"\<::usage\>\""}],
                     "]"}]}]}], "}"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
                    "}"}], "\[IndentingNewLine]", "}"}], "]"}], "]"}], ",", 
                  " ", "\"\<Usage\>\""}], "]"}]}], "\[IndentingNewLine]", 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"(*", 
               RowBox[{"MORE", " ", "INFO"}], "*)"}], "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                  RowBox[{"TextData", "[", 
                   RowBox[{"Cell", "[", 
                    RowBox[{"BoxData", "[", "\[IndentingNewLine]", 
                    RowBox[{"ButtonBox", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"FrameBox", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"StyleBox", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"RowBox", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    "\"\<MORE\>\"", ",", " ", "\"\< \>\"", ",", " ", 
                    "\"\<INFORMATION\>\""}], "}"}], "]"}], ",", " ", 
                    "\"\<NotesFrameText\>\""}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"StripOnInput", "\[Rule]", " ", "False"}]}], 
                    "]"}], ",", "\[IndentingNewLine]", 
                    RowBox[{"Appearance", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"Automatic", ",", " ", "None"}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"BaseStyle", "\[Rule]", " ", "None"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"ButtonFunction", "\[RuleDelayed]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"FrontEndExecute", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    "FrontEnd`SelectionMove", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"FrontEnd`SelectedNotebook", "[", "]"}], ",", " ",
                     "All", ",", " ", "ButtonCell"}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    "FrontEndToken", "[", "\"\<OpenCloseGroup\>\"", "]"}], 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{
                    "FrontEnd`SelectionMove", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"FrontEnd`SelectedNotebook", "[", "]"}], ",", " ",
                     "After", ",", " ", "CellContents"}], "]"}]}], "}"}], 
                    "]"}], "&"}], " ", ")"}]}], ",", "\[IndentingNewLine]", 
                    RowBox[{"Evaluator", "\[Rule]", " ", "None"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    "Method", "\[Rule]", " ", "\"\<Preemptive\>\""}]}], "]"}],
                     "]"}], "]"}], "]"}], ",", " ", "\"\<NotesSection\>\"", 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{"WholeCellGroupOpener", "\[Rule]", " ", "True"}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{"CellGroupingRules", "\[Rule]", " ", 
                   RowBox[{"{", 
                    RowBox[{"\"\<SectionGrouping\>\"", ",", " ", "50"}], 
                    "}"}]}]}], "\[IndentingNewLine]", "]"}]}], 
               "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                 "\"\<\\<Note about the function goes here.\\>\>\"", ",", 
                  "\"\<Notes\>\""}], "]"}]}], "\[IndentingNewLine]", "]"}], 
              ";", "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                 "\"\<\\<Another Note about the function goes here.\\>\>\"", 
                  ",", "\"\<Notes\>\""}], "]"}]}], "\[IndentingNewLine]", 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"(*", 
               RowBox[{"PRIMARY", " ", "EXAMPLES"}], "*)"}], 
              "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                  RowBox[{"TextData", "[", 
                   RowBox[{"ButtonBox", "[", 
                    RowBox[{"\"\<EXAMPLES\>\"", ",", "\[IndentingNewLine]", 
                    RowBox[{"BaseStyle", "\[Rule]", " ", "None"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Appearance", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"Automatic", ",", " ", "None"}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Evaluator", "\[Rule]", " ", "None"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Method", "\[Rule]", " ", "\"\<Preemptive\>\""}], 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{"ButtonFunction", "\[RuleDelayed]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"FrontEndExecute", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    "FrontEnd`SelectionMove", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"FrontEnd`SelectedNotebook", "[", "]"}], ",", " ",
                     "All", ",", " ", "ButtonCell"}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    "FrontEndToken", "[", "\"\<OpenCloseGroup\>\"", "]"}], 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{
                    "FrontEnd`SelectionMove", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"FrontEnd`SelectedNotebook", "[", "]"}], ",", " ",
                     "After", ",", " ", "CellContents"}], "]"}]}], "}"}], 
                    "]"}], "&"}], " ", ")"}]}]}], "]"}], "]"}], ",", " ", 
                  "\"\<PrimaryExamplesSection\>\"", ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"WholeCellGroupOpener", "\[Rule]", " ", "True"}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{
                  "CellTags", "\[Rule]", " ", 
                   "\"\<PrimaryExamplesSection\>\""}]}], "]"}]}], 
               "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                  RowBox[{"TextData", "[", 
                   RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    "\"\<Basic Examples\>\"", ",", "\[IndentingNewLine]", 
                    "\"\<\[NonBreakingSpace]\[NonBreakingSpace]\>\"", ",", 
                    " ", 
                    RowBox[{"Cell", "[", 
                    RowBox[{"\"\<(#)\>\"", ",", " ", "\"\<ExampleCount\>\""}],
                     "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", " ", 
                  "\"\<ExampleSection\>\"", ",", " ", 
                  "\"\<ExampleSection\>\"", ",", " ", 
                  RowBox[{"WholeCellGroupOpener", "\[Rule]", " ", "True"}]}], 
                 "]"}]}], "\[IndentingNewLine]", "]"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                 "\"\<Use the ExampleText style to write cells like this one.\
\>\"", ",", "\"\<ExampleText\>\""}], "]"}]}], "\[IndentingNewLine]", "]"}], 
              ";", "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                  RowBox[{"BoxData", "[", "\[IndentingNewLine]", 
                   RowBox[{"InterpretationBox", "[", 
                    RowBox[{
                    RowBox[{"Cell", "[", 
                    RowBox[{
                    RowBox[{"TextData", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    "\"\<Scope\>\"", ",", "\[IndentingNewLine]", "\"\<  \>\"",
                     ",", " ", 
                    RowBox[{"Cell", "[", 
                    RowBox[{"\"\<(#)\>\"", ",", " ", "\"\<ExampleCount\>\""}],
                     "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", " ", 
                    "\"\<ExampleSection\>\""}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"$Line", "=", "0"}], ";", " ", "Null"}]}], "]"}], 
                   "]"}], ",", " ", "\"\<ExampleSection\>\"", ",", " ", 
                  "\"\<ExampleSection\>\"", ",", "\[IndentingNewLine]", 
                  RowBox[{"WholeCellGroupOpener", "\[Rule]", " ", "True"}]}], 
                 "]"}]}], "\[IndentingNewLine]", "]"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                 "\"\<Use the ExampleText style to write cells like this one.\
\>\"", ",", "\"\<ExampleText\>\""}], "]"}]}], "\[IndentingNewLine]", "]"}], 
              ";", "\[IndentingNewLine]", 
              RowBox[{"(*", 
               RowBox[{"SEE", " ", "ALSO"}], "*)"}], "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                  RowBox[{"TextData", "[", 
                   RowBox[{"ButtonBox", "[", 
                    RowBox[{"\"\<SEE ALSO\>\"", ",", "\[IndentingNewLine]", 
                    RowBox[{"BaseStyle", "\[Rule]", " ", "None"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Appearance", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"Automatic", ",", " ", "None"}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Evaluator", "\[Rule]", " ", "None"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Method", "\[Rule]", " ", "\"\<Preemptive\>\""}], 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{"ButtonFunction", "\[RuleDelayed]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"FrontEndExecute", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    "FrontEnd`SelectionMove", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"FrontEnd`SelectedNotebook", "[", "]"}], ",", " ",
                     "All", ",", " ", "ButtonCell"}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    "FrontEndToken", "[", "\"\<OpenCloseGroup\>\"", "]"}], 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{
                    "FrontEnd`SelectionMove", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"FrontEnd`SelectedNotebook", "[", "]"}], ",", " ",
                     "After", ",", " ", "CellContents"}], "]"}]}], "}"}], 
                    "]"}], "&"}], " ", ")"}]}]}], "]"}], "]"}], ",", " ", 
                  "\"\<SeeAlsoSection\>\"", ",", "\[IndentingNewLine]", 
                  RowBox[{"WholeCellGroupOpener", "\[Rule]", " ", "True"}]}], 
                 "]"}]}], "\[IndentingNewLine]", "]"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                  RowBox[{"TextData", "[", 
                   RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"Cell", "[", 
                    RowBox[{
                    RowBox[{"BoxData", "[", 
                    RowBox[{"StyleBox", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"ButtonBox", "[", 
                    RowBox[{"\"\<SymbolOne\>\"", ",", 
                    RowBox[{"BaseStyle", "\[Rule]", "\"\<Link\>\""}], ",", 
                    RowBox[{"ButtonData", "\[Rule]", 
                    RowBox[{
                    "\"\<paclet:\>\"", "<>", "appName", "<>", 
                    "\"\</ref/SymbolOne\>\""}]}]}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Verdana\>\""}]}], 
                    "]"}], "]"}], ",", "\"\<InlineFormula\>\""}], "]"}], ",", 
                    "\[IndentingNewLine]", "\"\<\[NonBreakingSpace]\>\"", ",", 
                    RowBox[{"StyleBox", "[", 
                    RowBox[{
                    "\"\<\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]\
\>\"", ",", "\"\<InlineSeparator\>\""}], "]"}], ",", "\"\< \>\"", ",", 
                    RowBox[{"Cell", "[", 
                    RowBox[{
                    RowBox[{"BoxData", "[", 
                    RowBox[{"StyleBox", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"ButtonBox", "[", 
                    RowBox[{"\"\<SymbolTwo\>\"", ",", 
                    RowBox[{"BaseStyle", "\[Rule]", "\"\<Link\>\""}], ",", 
                    RowBox[{"ButtonData", "\[Rule]", 
                    RowBox[{"\"\<paclet:\>\"", "<>", "appName", "<>", 
                    "\"\</ref/SymbolTwo\>\""}]}]}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Verdana\>\""}]}], 
                    "]"}], "]"}], ",", "\"\<InlineFormula\>\""}], "]"}]}], 
                    "\[IndentingNewLine]", "}"}], "]"}], ",", " ", 
                  "\[IndentingNewLine]", "\"\<SeeAlso\>\""}], "]"}]}], 
               "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"(*", "TUTORIALS", "*)"}], "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                  RowBox[{"TextData", "[", 
                   RowBox[{"ButtonBox", "[", 
                    RowBox[{"\"\<TUTORIALS\>\"", ",", "\[IndentingNewLine]", 
                    RowBox[{"BaseStyle", "\[Rule]", " ", "None"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Appearance", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"Automatic", ",", " ", "None"}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Evaluator", "\[Rule]", " ", "None"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Method", "\[Rule]", " ", "\"\<Preemptive\>\""}], 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{"ButtonFunction", "\[RuleDelayed]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"FrontEndExecute", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    "FrontEnd`SelectionMove", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"FrontEnd`SelectedNotebook", "[", "]"}], ",", " ",
                     "All", ",", " ", "ButtonCell"}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FrontEndToken", "[", "\"\<OpenCloseGroup\>\"", 
                    "]"}], ",", "\[IndentingNewLine]", 
                    RowBox[{
                    "FrontEnd`SelectionMove", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"FrontEnd`SelectedNotebook", "[", "]"}], ",", " ",
                     "After", ",", " ", "CellContents"}], "]"}]}], "}"}], 
                    "]"}], "&"}], " ", ")"}]}]}], "]"}], "]"}], ",", " ", 
                  "\"\<TutorialsSection\>\"", ",", "\[IndentingNewLine]", 
                  RowBox[{"WholeCellGroupOpener", "\[Rule]", " ", "True"}]}], 
                 "]"}]}], "\[IndentingNewLine]", "]"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"str", " ", "=", " ", 
               RowBox[{
               "\"\<paclet:\>\"", "<>", "appName", "<>", 
                "\"\</tutorial/tutorial1\>\""}]}], ";", "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                  RowBox[{"TextData", "[", 
                   RowBox[{"ButtonBox", "[", 
                    RowBox[{"\"\<Tutorial Title 1\>\"", ",", 
                    RowBox[{"BaseStyle", "\[Rule]", "\"\<Link\>\""}], ",", 
                    RowBox[{"ButtonData", "\[Rule]", "str"}]}], "]"}], "]"}], 
                  ",", "\"\<Tutorials\>\""}], "]"}]}], "\[IndentingNewLine]", 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"str", " ", "=", " ", 
               RowBox[{
               "\"\<paclet:\>\"", "<>", "appName", "<>", 
                "\"\</tutorial/tutorial2\>\""}]}], ";", "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                  RowBox[{"TextData", "[", 
                   RowBox[{"ButtonBox", "[", 
                    RowBox[{"\"\<Tutorial Title 2\>\"", ",", 
                    RowBox[{"BaseStyle", "\[Rule]", "\"\<Link\>\""}], ",", 
                    RowBox[{"ButtonData", "\[Rule]", "str"}]}], "]"}], "]"}], 
                  ",", "\"\<Tutorials\>\""}], "]"}]}], "\[IndentingNewLine]", 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"(*", 
               RowBox[{"MORE", " ", "ABOUT"}], "*)"}], "\[IndentingNewLine]", 
              
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                  RowBox[{"TextData", "[", 
                   RowBox[{"ButtonBox", "[", 
                    RowBox[{
                    "\"\<MORE ABOUT\>\"", ",", "\[IndentingNewLine]", 
                    RowBox[{"BaseStyle", "\[Rule]", " ", "None"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Appearance", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"Automatic", ",", " ", "None"}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Evaluator", "\[Rule]", " ", "None"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Method", "\[Rule]", " ", "\"\<Preemptive\>\""}], 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{"ButtonFunction", "\[RuleDelayed]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"FrontEndExecute", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    "FrontEnd`SelectionMove", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"FrontEnd`SelectedNotebook", "[", "]"}], ",", " ",
                     "All", ",", " ", "ButtonCell"}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    "FrontEndToken", "[", "\"\<OpenCloseGroup\>\"", "]"}], 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{
                    "FrontEnd`SelectionMove", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"FrontEnd`SelectedNotebook", "[", "]"}], ",", " ",
                     "After", ",", " ", "CellContents"}], "]"}]}], "}"}], 
                    "]"}], "&"}], " ", ")"}]}]}], "]"}], "]"}], ",", " ", 
                  "\"\<MoreAboutSection\>\"", ",", "\[IndentingNewLine]", 
                  RowBox[{"WholeCellGroupOpener", "\[Rule]", " ", "True"}]}], 
                 "]"}]}], "\[IndentingNewLine]", "]"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                  RowBox[{"TextData", "[", 
                   RowBox[{"ButtonBox", "[", 
                    RowBox[{"\"\<Title of Guide 1\>\"", ",", 
                    RowBox[{"BaseStyle", "\[Rule]", "\"\<Link\>\""}], ",", 
                    RowBox[{"ButtonData", "\[Rule]", 
                    RowBox[{
                    "\"\<paclet:\>\"", "<>", "appName", "<>", 
                    "\"\</guide/Guide1\>\""}]}]}], "]"}], "]"}], ",", 
                  "\"\<MoreAbout\>\""}], "]"}]}], "\[IndentingNewLine]", 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                  RowBox[{"TextData", "[", 
                   RowBox[{"ButtonBox", "[", 
                    RowBox[{"\"\<Title of Guide 2\>\"", ",", 
                    RowBox[{"BaseStyle", "\[Rule]", "\"\<Link\>\""}], ",", 
                    RowBox[{"ButtonData", "\[Rule]", 
                    RowBox[{
                    "\"\<paclet:\>\"", "<>", "appName", "<>", 
                    "\"\</guide/Guide2\>\""}]}]}], "]"}], "]"}], ",", 
                  "\"\<MoreAbout\>\""}], "]"}]}], "\[IndentingNewLine]", 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"(*", 
               RowBox[{"RELATED", " ", "LINKS"}], "*)"}], 
              "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                  RowBox[{"TextData", "[", 
                   RowBox[{"ButtonBox", "[", 
                    RowBox[{
                    "\"\<RELATED LINKS\>\"", ",", "\[IndentingNewLine]", 
                    RowBox[{"BaseStyle", "\[Rule]", " ", "None"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Appearance", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"Automatic", ",", " ", "None"}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Evaluator", "\[Rule]", " ", "None"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Method", "\[Rule]", " ", "\"\<Preemptive\>\""}], 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{"ButtonFunction", "\[RuleDelayed]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"FrontEndExecute", "[", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    "FrontEnd`SelectionMove", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"FrontEnd`SelectedNotebook", "[", "]"}], ",", " ",
                     "All", ",", " ", "ButtonCell"}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    "FrontEndToken", "[", "\"\<OpenCloseGroup\>\"", "]"}], 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{
                    "FrontEnd`SelectionMove", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"FrontEnd`SelectedNotebook", "[", "]"}], ",", " ",
                     "After", ",", " ", "CellContents"}], "]"}]}], "}"}], 
                    "]"}], "&"}], " ", ")"}]}]}], "]"}], "]"}], ",", " ", 
                  "\"\<RelatedLinksSection\>\"", ",", "\[IndentingNewLine]", 
                  RowBox[{"WholeCellGroupOpener", "\[Rule]", " ", "True"}]}], 
                 "]"}]}], "\[IndentingNewLine]", "]"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                  RowBox[{"TextData", "[", 
                   RowBox[{"ButtonBox", "[", 
                    RowBox[{"\"\<Link Title 1\>\"", ",", 
                    RowBox[{"BaseStyle", "\[Rule]", "\"\<Hyperlink\>\""}], 
                    ",", 
                    RowBox[{"ButtonData", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"URL", "[", "\"\<URL.goes.here\>\"", "]"}], ",", 
                    "None"}], "}"}]}]}], "]"}], "]"}], ",", 
                  "\"\<RelatedLinks\>\""}], "]"}]}], "\[IndentingNewLine]", 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                  RowBox[{"TextData", "[", 
                   RowBox[{"ButtonBox", "[", 
                    RowBox[{"\"\<Link Title 2\>\"", ",", 
                    RowBox[{"BaseStyle", "\[Rule]", "\"\<Hyperlink\>\""}], 
                    ",", 
                    RowBox[{"ButtonData", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"URL", "[", "\"\<URL.goes.here\>\"", "]"}], ",", 
                    "None"}], "}"}]}]}], "]"}], "]"}], ",", 
                  "\"\<RelatedLinks\>\""}], "]"}]}], "\[IndentingNewLine]", 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{
                  RowBox[{
                  "\"\<Made for Mathematica 8  |  Last modified in \>\"", "<>", 
                   RowBox[{"DateString", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    "\"\<MonthName\>\"", ",", " ", "\"\< \>\"", ",", " ", 
                    "\"\<Year\>\""}], "}"}], "]"}]}], ",", 
                  "\"\<History\>\""}], "]"}]}], "\[IndentingNewLine]", "]"}], 
              ";", "\[IndentingNewLine]", 
              RowBox[{"NotebookWrite", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"Cell", "[", 
                 RowBox[{"\"\< \>\"", ",", "\"\<FooterCell\>\""}], "]"}]}], 
               "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"NotebookSave", "[", 
               RowBox[{"nb", ",", "refPath"}], "]"}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", " ", 
            RowBox[{"Length", "@", "sym"}]}], "}"}]}], "]"}]}], 
       "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", 
         RowBox[{"Length", "@", "pkg"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"On", "[", 
      RowBox[{"General", "::", "stop"}], "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.51933511643604*^9, 3.519335154552525*^9}, {
   3.519335319297083*^9, 3.5193353193815203`*^9}, {3.519335387028741*^9, 
   3.5193354482090597`*^9}, 3.5193354951030188`*^9, {3.519335530915979*^9, 
   3.5193355427812033`*^9}, {3.519335622909869*^9, 3.519335699189803*^9}, {
   3.519335744153446*^9, 3.5193357786710157`*^9}, 3.519335826428173*^9, {
   3.519335860039596*^9, 3.519336073689947*^9}, {3.5193361213224783`*^9, 
   3.519336122878748*^9}, {3.519336176287525*^9, 3.5193365022741823`*^9}, {
   3.519336534183175*^9, 3.519336588930558*^9}, {3.519336778395361*^9, 
   3.519336806603417*^9}, {3.519336905323868*^9, 3.519336945710959*^9}, {
   3.5193370778073463`*^9, 3.519337079202669*^9}, {3.51933737920935*^9, 
   3.519337427240822*^9}, {3.519337840856208*^9, 3.5193378462303867`*^9}, {
   3.519337954240429*^9, 3.519338013620294*^9}, {3.519339004038072*^9, 
   3.519339015222971*^9}, {3.519339323960567*^9, 3.519339328825448*^9}, {
   3.519339388535425*^9, 3.5193393899379997`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"End", "[", "]"}], ";"}]], "Code"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Protect", "[", 
   RowBox[{
   "ViewOption", ",", "EditOption", ",", " ", "ViewNotebookOption", ",", " ", 
    "EditNotebookOption", ",", " ", "NewGuide", ",", " ", "NewTutorial", ",", 
    " ", "CreateReferencePages"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.519265371353053*^9, 3.5192653751600647`*^9}, {
   3.5192693851918573`*^9, 3.519269390616124*^9}, {3.5193232755408278`*^9, 
   3.519323280939507*^9}, 3.5193240307182283`*^9, 3.5193370795832443`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"EndPackage", "[", "]"}], ";"}]], "Code"]
},
AutoGeneratedPackage->Automatic,
WindowSize->{933, 743},
WindowMargins->{{22, Automatic}, {Automatic, 2}},
FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (February 23, \
2011)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData["Input"], InitializationCell -> True]}, Visible -> False, 
  FrontEndVersion -> 
  "8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (February 23, 2011)", 
  StyleDefinitions -> "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 1678, 48, 149, "Code"],
Cell[2238, 70, 131, 4, 43, "Code"],
Cell[2372, 76, 829, 16, 73, "Input"],
Cell[3204, 94, 133, 4, 43, "Code"],
Cell[3340, 100, 3424, 72, 313, "Input"],
Cell[6767, 174, 133, 4, 43, "Code"],
Cell[6903, 180, 3526, 81, 403, "Input"],
Cell[10432, 263, 91, 2, 43, "Code"],
Cell[10526, 267, 8020, 198, 688, "Input"],
Cell[18549, 467, 2158, 52, 223, "Input"],
Cell[20710, 521, 2548, 60, 253, "Input"],
Cell[23261, 583, 1958, 45, 103, "Input"],
Cell[25222, 630, 1610, 38, 118, "Input"],
Cell[26835, 670, 20802, 434, 1768, "Input"],
Cell[47640, 1106, 14695, 314, 1318, "Input"],
Cell[62338, 1422, 51162, 994, 4123, "Input"],
Cell[113503, 2418, 68, 2, 43, "Code"],
Cell[113574, 2422, 499, 9, 43, "Input"],
Cell[114076, 2433, 75, 2, 43, "Code"]
}
]
*)

(* End of internal cache information *)
